| Filename | (eval 86)[/usr/share/perl5/Sub/Quote.pm:5] |
| Statements | Executed 27 statements in 402µs |
| Eval Invoked At | /usr/share/perl5/Sub/Quote.pm line 5 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 2 | 2 | 2 | 34µs | 15.7ms | Search::Elasticsearch::CxnPool::Static::new |
| 1 | 1 | 1 | 12µs | 23µs | Sub::Quote::BEGIN@4.19 |
| 1 | 1 | 1 | 7µs | 7µs | Method::Generate::Constructor::BEGIN@7.20 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | { | ||||
| 2 | 2 | 2µs | my $default_for_cxns = ${$_[1]->{"\$default_for_cxns"}}; | ||
| 3 | 1 | 400ns | my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; | ||
| 4 | 2 | 61µs | 2 | 34µs | # spent 23µs (12+11) within Sub::Quote::BEGIN@4.19 which was called:
# once (12µs+11µs) by Sub::Quote::_clean_eval at line 4 # spent 23µs making 1 call to Sub::Quote::BEGIN@4.19
# spent 11µs making 1 call to warnings::unimport |
| 5 | # spent 15.7ms (34µs+15.6) within Search::Elasticsearch::CxnPool::Static::new which was called 2 times, avg 7.83ms/call:
# once (28µs+13.7ms) by Search::Elasticsearch::new at line 53 of Sub/Defer.pm
# once (6µs+1.92ms) by Search::Elasticsearch::new at line 40 of /opt/flows/lib/lib/perl5/Search/Elasticsearch.pm | ||||
| 6 | package Method::Generate::Constructor; | ||||
| 7 | # spent 7µs within Method::Generate::Constructor::BEGIN@7.20 which was called:
# once (7µs+0s) by Sub::Quote::_clean_eval at line 12 | ||||
| 8 | 1 | 1µs | $^H = "2018"; | ||
| 9 | 1 | 500ns | ${^WARNING_BITS} = "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\003"; | ||
| 10 | 1 | 6µs | %^H = ( | ||
| 11 | ); | ||||
| 12 | 1 | 300µs | 1 | 7µs | } # spent 7µs making 1 call to Method::Generate::Constructor::BEGIN@7.20 |
| 13 | 1 | 600ns | my $class = shift; | ||
| 14 | 1 | 200ns | $class = ref($class) if ref($class); | ||
| 15 | 1 | 300ns | if ($class ne "Search::Elasticsearch::CxnPool::Static") { | ||
| 16 | if ($Moo::MAKERS{$class}) { | ||||
| 17 | Moo->_constructor_maker_for($class,"Search::Elasticsearch::CxnPool::Static"); | ||||
| 18 | return $class->new(@_); | ||||
| 19 | } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { | ||||
| 20 | return $meta->new_object($class->BUILDARGS(@_)); | ||||
| 21 | } | ||||
| 22 | } | ||||
| 23 | 1 | 2µs | 1 | 35µs | my $args = $class->BUILDARGS(@_); # spent 35µs making 1 call to Search::Elasticsearch::CxnPool::Static::BUILDARGS |
| 24 | 1 | 500ns | die "BUILDARGS did not return a hashref" unless ref($args) eq 'HASH'; | ||
| 25 | 1 | 2µs | if (my @missing = grep !exists $args->{$_}, qw(cxn_factory logger seed_nodes serializer)) { | ||
| 26 | die "Missing required arguments: ".join(', ', sort @missing); | ||||
| 27 | } | ||||
| 28 | 1 | 1µs | my $new = bless({}, $class);; | ||
| 29 | 1 | 4µs | $new->{"current_cxn_num"} = ( | ||
| 30 | exists $args->{"current_cxn_num"} | ||||
| 31 | ? $args->{"current_cxn_num"} | ||||
| 32 | : "0" | ||||
| 33 | ); | ||||
| 34 | 1 | 700ns | if (exists $args->{"cxn_factory"}) { | ||
| 35 | $new->{"cxn_factory"} = $args->{"cxn_factory"}; | ||||
| 36 | } | ||||
| 37 | 1 | 2µs | 1 | 1µs | $new->{"cxns"} = ( # spent 1µs making 1 call to Search::Elasticsearch::Role::CxnPool::__ANON__[/opt/flows/lib/lib/perl5/Search/Elasticsearch/Role/CxnPool.pm:17] |
| 38 | exists $args->{"cxns"} | ||||
| 39 | ? $args->{"cxns"} | ||||
| 40 | : $default_for_cxns->($new) | ||||
| 41 | ); | ||||
| 42 | 1 | 600ns | if (exists $args->{"logger"}) { | ||
| 43 | $new->{"logger"} = $args->{"logger"}; | ||||
| 44 | } | ||||
| 45 | 1 | 600ns | $new->{"randomize_cxns"} = ( | ||
| 46 | exists $args->{"randomize_cxns"} | ||||
| 47 | ? $args->{"randomize_cxns"} | ||||
| 48 | : "1" | ||||
| 49 | ); | ||||
| 50 | 1 | 400ns | $new->{"retries"} = ( | ||
| 51 | exists $args->{"retries"} | ||||
| 52 | ? $args->{"retries"} | ||||
| 53 | : "0" | ||||
| 54 | ); | ||||
| 55 | 1 | 500ns | if (exists $args->{"seed_nodes"}) { | ||
| 56 | $new->{"seed_nodes"} = $args->{"seed_nodes"}; | ||||
| 57 | } | ||||
| 58 | 1 | 1µs | if (exists $args->{"serializer"}) { | ||
| 59 | $new->{"serializer"} = $args->{"serializer"}; | ||||
| 60 | } | ||||
| 61 | 1 | 3µs | 1 | 13.7ms | $new->Search::Elasticsearch::CxnPool::Static::BUILD($args); # spent 13.7ms making 1 call to Search::Elasticsearch::Role::CxnPool::Static::BUILD |
| 62 | 1 | 4µs | return $new; | ||
| 63 | } | ||||
| 64 | 1 | 1µs | $_QUOTED->[3] = \&Search::Elasticsearch::CxnPool::Static::new | ||
| 65 | } | ||||
| 66 | 1 | 6µs | 1; | ||
| 67 | |||||
| 68 | ; |